home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_dpnxt.ps < prev    next >
Text File  |  2003-01-03  |  4KB  |  103 lines
  1. %    Copyright (C) 1997, 1998 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % gs_dpnxt.ps
  8. % NeXT Display PostScript extensions
  9.  
  10. % Define the operation values for compositing.  These must match the values
  11. % in gsdpnext.h, which also are the ones from the NeXT documentation.
  12. % We put them in systemdict, which seems like as good a place as any.
  13. mark
  14.   /Clear /Copy /Sover /Sin /Sout /Satop /Dover /Din /Dout /Datop /Xor
  15.   /PlusD /PlusL /Highlight    % not sure about Highlight
  16. counttomark { counttomark 1 sub def } repeat pop
  17.  
  18. % We implement readimage and sizeimage using the following 3 otherwise
  19. % undocumented lower-level operators:
  20. %
  21. %    <x> <y> <width> <height> <matrix> .sizeimagebox
  22. %      <dev_x> <dev_y> <dev_width> <dev_height> <matrix>
  23. %
  24. %    - .sizeimageparams <bits/sample> <multiproc> <ncolors>
  25. %
  26. %    <device> <x> <y> <width> <max_height> <alpha?> <std_depth|null>
  27. %      <string> .getbitsrect <height> <substring>
  28. %
  29. % NOTE: These operators are subject to change without notice!
  30.  
  31. % Implement readimage using .getbitsrect.  Experimentation on a NeXT system
  32. % shows that the data is always returned in order of increasing device Y,
  33. % regardless of the CTM.
  34. %
  35. % Note that we can't make stack protection work for this operator,
  36. % because it must remove its operands from the stack before calling
  37. % the supplied procedure(s).
  38.  
  39. /readimage {        % <x> <y> <width> <height> <proc> [... <procN-1>]
  40.             %   <string> <alpha?> readimage -
  41.   .sizeimageparams exch {
  42.     % multiproc = true.  If N > 1, store the procedures in an array.
  43.     exch pop 1 index { 1 add } if
  44.     % Stack: ... string alpha? nprocs
  45.     dup 1 eq {
  46.       pop false        % only 1 procedure, multiproc is irrelevant
  47.     } {
  48.       dup array 4 1 roll 3 add 2 roll astore 3 1 roll true
  49.     } ifelse
  50.   } {
  51.     % multiproc = false.
  52.     pop pop false
  53.   } ifelse
  54.     % Map the rectangle to device coordinates.
  55.     % Stack: x y w h proc(s) str alpha? multi?
  56.   8 -4 roll matrix .sizeimagebox pop 8 4 roll
  57.     % Make sure we allocate the operand array in local VM
  58.     % to avoid a possible invalidaccess.
  59.   .currentglobal false .setglobal 9 1 roll
  60.   exch { 1 } { 0 } ifelse exch        % alpha is last, if present
  61.   exch 4 1 roll 8 array astore exch .setglobal
  62.   {    % Read out a block of scan lines and pass them to the procedure.
  63.     % Stack: [x y w h alpha? proc(s) str multi?] -- we must consume this.
  64.     dup 3 get 0 eq { pop exit } if
  65.     aload 9 1 roll pop exch pop currentdevice 7 1 roll
  66.     % Always read out the data as standard (not native) pixels.
  67.     .sizeimageparams pop pop exch .getbitsrect
  68.     % Stack: [x y w h alpha? proc(s) str multi?] hread substr
  69.     3 -1 roll
  70.     % Stack: hread substr [x y w h alpha? proc(s) str multi?]
  71.     dup 1 2 copy get 5 index add put
  72.     % Stack: hread substr [x y' w h alpha? proc(s) str multi?]
  73.     dup 3 2 copy get 6 -1 roll sub put
  74.     % Stack: substr [x y' w h' alpha? proc(s) str multi?]
  75.     dup 5 get exch 7 get {
  76.     % multiproc = true, pass each plane to a different procedure.
  77.     % Stack: substr procs
  78.       0 1 2 index length 1 sub {
  79.     % Push 1 plane and its procedure under the top 2 elements.
  80.     % Stack: ... substr procs plane#
  81.     2 index length 2 index length idiv    % bytes per plane
  82.     dup 2 index mul exch
  83.     % Stack: ... substr procs plane# start length
  84.     4 index 3 1 roll getinterval 4 1 roll
  85.     2 copy get 4 1 roll pop
  86.       } for
  87.       exch pop length 2 mul .execn
  88.     } {
  89.     % multiproc = false, just call the procedure.
  90.       exec
  91.     } ifelse
  92.   } //systemdict /exec get 3 packedarray cvx loop
  93. } bind odef
  94.  
  95. % Implement sizeimage using lower-level operators.
  96.  
  97. /sizeimage {        % <x> <y> <width> <height> <matrix> sizeimage
  98.             %   <devwidth> <devheight> <bits/sample> <matrix>
  99.             %   <multiproc> <ncolors>
  100.   .sizeimagebox 5 -2 roll pop pop
  101.   .sizeimageparams 3 -1 roll 4 1 roll
  102. } bind odef
  103.